home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue28 / construc / ASSERT3.DPR < prev    next >
Encoding:
Text File  |  1997-10-26  |  252 b   |  16 lines
  1. program assert3;
  2. {$APPTYPE CONSOLE}
  3. {$C+}
  4. uses
  5.   SysUtils;
  6.  
  7. var
  8.   i: Integer;
  9.  
  10. begin
  11.   repeat
  12.     write('Give a positive number (0 = quit): ');
  13.     readln(i);
  14.     assert(i >= 0,Format('Negative number %d entered',[i]))
  15.   until i = 0
  16. end.